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ZTITLE ‘EDTSCHMGSUSTR = isolate the search and replace strings’ 
MODULE EDTSCHMGSUSTR ! Isolate the search and replace strings 
pDENT = 'v04-000' ! File: CHMGSUSTR.BLI Edit: JBS1003 


BEGIN 
; 
VRE ERA AERA ARERR EEE REE EERE EEE REREE REE | 
' 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND abd THE 
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4 8 . 
3 4 6 : 
bo ey : 
: 7 0 1 $ 
; 8 0 1 ; 
; 9 0 1 * : 
. + 0010 1 * 3 
: 11 0011 1 * 3 
: \ 0012 1 > 3 
wee ; | 
3 * e 
. a7 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * $ 
: 16 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ’ 
; i ; ! 1* TRANSFERRED. * | : 
Py :* ® ° 
; a 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
; 21 002 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | : 
: $8 § : :* CORPORATION. * : 
P4 .* ® ° 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
: $ 8 $ : be SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
4 :* ® Py 
; a 0027 1 !« * | F 
5 28 002 LR RRR RRR R RRR E RR EEEA EEE EEEEEAEREAEARAARRAEAEAERAEAREAEE REE 3 
ae 0029 1! ; 
; @ 0030 1 3 
i 0031 1 !++ : ; 
: 3 O03¢ 1 ! FACILITY: EDT -- The DEC Standard Editor : 
: 3 0033 1! : 
; 0034 1 ! ABSTRACT: : 
a> | 0035 1! : 3 
; » 0036 1! This module isolates the search and replace strings for the : 
; 3 44 : SUBSTITUTE command. : 
3 4 sit ’ ENVIRONMENT: Runs at any access mode - AST reentrant | 3 
° . | Py) 
3 41 0041 1 =! AUTHOR: Bob Kushlis, CREATION DATE: Unknown : 
; 42 ok 8. 3 
: 43 004 1 ! MODIFIED BY: 3 
: 44 044 1! 3 
s &§ 045 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created b : 
: 646 0046 1! vag ad pes the routine EDTS$FND_SUBSTR from module CHANGE.BLI. : 
. #2 0047 1 ! 1-002 - Regularize header. JBS 02-Mar-1981 3 
; 68 0048 1 ! 1-003 - Improve the appearance of the Listing. JBS 13-Jun-1983 3 
: 3 0080 1 | 
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7 
| 
ASBTTL ‘Declarations’ | 


l 
: 051 1 : 
; g 09 § 1: : 
; 4 8 1 ! TABLE OF CONTENTS: . 
; 5 054 1! ; 
; 26 055 1 | : 
; 38 23 i REQUIRE "*EDTSRC: TRAROUNAM' ; ; 
; 9 496 1 FORWARD ROUTINE | ; 
: > 9844 } EDTSSFND_SUBSTR : NOVALUE; ! Isolate the search and replace strings for the SUBSTITUTE command | : 
; 3 0500 INCLUDE FILES | ' 
.< o 0801 1 3 
3; 65 b208 1 
; 66 05035 1 REQUIRE "EDTSRC:EDTREQ'; 
; «67 0638 1 
>; 68 0639 1! 
; 69 0640 1 ! MACROS: 
; £0 0641 1! 
' Berg 1 | NONE 
fi-€ 0645 1! 
Hie: 0644 1 ! EQUATED SYMBOLS: 
: «74 0645 1! 
; ££ 0646 1! NONE 
ae. 0647 1! 
ee i 0648 1 ! OWN STORAGE: 
; £8 0649 1! 
; 0650 1! NONE 
; 80 0651 1! 
: «81 0652 1 ! EXTERNAL REFERENCES: 
; 82 0653 1! 
; 85 0654 1! In the routine 

| 
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*O EDTSSFND_SUBSTR = isolate the search ond’ reple 1278 08- 1 3b $3 :33:48 EDT SREICHNGSOSTR: BL 1 r4 
: § $ 5 } ZSBTTL ‘EDTSSFND_SUBSTR = isolate the search and replace strings’ 
: 5 6 $ 1 GLOBAL ROUTINE EDTSSFND_SUBSTR ! Isolate the search and replace strings 
; 8 6 3 1 : NOVALUE = 
; 6 1 
:; 90 660 1 !+¢ 
; 4! 20) ! } FUNCTIONAL DESCRIPTION: 
: 9 oes 1 This routine isolates the search and replace strings for the SUBSTITUTE 
3 oe bere : command. 
nS 444 1 / The length and address of the search and replace strings respectively 
; 66/ 1! are placed in the gtobal variables: EDT$$G_SEA_LEN , 
; 98 0668 \ : EDTSSA_SEA_STR , EDT$S$G_RPL_LEN and EDTS$A_RPC_STR . 
: 100 0670 1! The command Line pointer EDTSSA_CMD_BUF is left pointing 1 character beyond the 
: 101 0671 1! command. 
; 102 0672 1! 
: 105 067 1 ! FORMAL PARAMETERS: 
: 104 0674 1! 
; 105 0675 1! NONE 
: 106 0676 1! 
s 107 0677 1 =! IMPLICIT INPUTS: 
; 108 0678 1! 
: 109 0679 1! EDTSSA_CMD_END 
: 110 0680 1! EDTS$A_CMD_BUF 
3s 1 0681 1! 
; Ng bes : IMPLICIT OUTPUTS: 
: 114 0684 1! EDTSSA_CMD_BUF 
s 495 0685 1! EDTSSA_RPL_STR 
> 6116 0686 1! EDT$$G_RPL_LEN 
s 117 0687 1! EDTSSA_SEA_STR 
: 118 0688 1! EDT$$G_SEA_LEN 
3. 6119 0689 1! 
; 120 0690 1 ! ROUTINE VALUE: 
3 Yer 0691 1! 
> tz 0692 1! NONE 
s te 0693 1! 
; 126 0694 1 ! SIDE EFFECTS: 
: 125 0695 1! 
: 126 0696 1! NONE 
: 127 0697 1! 
2 
et O74 se 
; 138 070 EXTERNAL 
; 070 EDTSSA_CMD_END, ! End of command pointer 
3 «(134 0704 2 EDTS$A_CMD_BUF, ! Command string pointer. 
3 339 0705 2 EDTSSA_RPL_STR, ! Address of replace string. 
3; 136 Bo08 EDTS$G_RPL_LEN, ! Length of replace string. 
: 137 70 EDTSSA_SEA_STR, ! Address of search string. 
3 138 $443 EDT$$G_SEA_LEN; ! Length of search string. 
: 140 8710 LOCAL 
3: «141 0711 QUOTE, 
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DTSSA_CMD BUF); 
$$A_CAD_BOF; 


EDTSSA CMD_END, .EDT$$A_CMD_BUF) AND! 
$A_CMD_BUF) NEQ .QUOTES) DO | 
-EDTS$G_SEA_LEN + 1; 


M 
N 

EDTSSA_RPL “ste = ,EDTSSA_CMD_BUF; 
EDT$$G_RPL-LEN = 0; 

1 


WHILE (CHSPTR_GTR (-E SSA_CMD_END, .EDT$$A_CMD_BUF) AND! 
(CHSRCHAR-A (EDT$$A_CMD BUF) NEQ .QUOTES) DO | 
EDTS$$G_RPC_LEN = .EBTS$G_RPL_LEN + 1; 


END; ! of routine EDTSS$FND_SUBSTR 
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.TITLE EDTSCHMGSUSTR EDTSCHMGSUSTR - isolate the searc | 
and replace 

IDENT \V04-000\ 

-EXTRN EDTSSA_CMD_END, EDT$$A_CMD_BUF 

-EXTRN EDTSSA_RPL_STR, EDT$$G_RPL_LEN 

-EXTRN EDTSSALSEA_STR, EDT$$G-SEA~LEN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


007¢ 00000 .ENTRY EDTSSFND SUBSTR, Save R2,R3,R4,R5,R6 : 0657 
56 000000006 00 9E 00002 MOVAB EDTS$$G_R R6 : 
55 000000006 00 9€ 00009 MOVAB EDIS$G7SEA“LEN, RS F | 
54 000000006 00 9€E 00010 MOVAB EDTS$SA-CMD-BUF, R : 
50 64 00 00017 OVL EDTSSA~CMD~BUF. RO : 0715 
52 60 9A OOO1A MOVZBL (RO), QUOT ; 
64 D6 0001D INCL EDTS$$A_CMD_BU ; | 
000000006 00 64 DO OO01F MOVL EDTEse-SeActeN” EDT$$A_SEA_STR ; 0716, 
65 D4 00026 CLRL EDTS$G~SEA~ : 0717 
50 000000006 00 dO 00 8 MOVL EDTS$S$A~CMD~END, RO : 0719 
64 50 D1 OOO2F 18: CMPL RO, EDTSSA~ EMD “BUF : 
11 1B 00032 BLEQU 2$ ; | 
53 64 D0 00 4 OVL  EDISSA_CMD_BUF, R3 : 0720 | 
51 63 9A 7 MOVZBL (R3), Ri : | 
64 D6 0003A INCL EDT$$A_CMD_BUF : | 
52 51 01 99 C CMPL R1, QUOTE ; | 
04 13 0003F BEQL 2$ : 
65 D6 00041 INCL  EDT$$G_SEA_LEN : 0721 
EA 11 00 43 BRB 1$ ; 
000000006 00 64 D0 0 45 2% MOVL EDTS$A_ CMD _BUF, EDTSSA_RPL_STR : 0723 | 
66 D4 0004C CLRL  EDTS$G"R > 0724 | 
64 20 D1 0 af 3$ CPL RO, EDTSSA~ CMD _BUF > 0726 
53 64 00 6 3 MOVL EDISSA_CMD_BUF, R3 ; 0727 | 
1 63 9A 0 é MOVZBL (R3), Ri ; 
64 06 9 INCL EDTS$$A_CMD_BUF ; 
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4 RET 
; Routine Size: 101 bytes, Routine Base: _EDTSCODE + 0000 


; ora) 1 
162 0732 1 !<BLF/PAGE> 
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v04-000 EDTSSFND_SUBSTR = isolate the search A gn OE 1a-8ep -1 1982 $33 : 3°98 EDT. SRCJCHMGSUSTR.BLI; . 
164 733. 1 END ! TSCHM TR 
ies O73 : of module EDTSCHMGSUS 
166 755 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; -EDTSCODE 101 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ae 8) ee SYERSLE Seowones Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: :PEDT ~SRCJEDT.L32;1 377 1 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
H COMMAND QUALIFIERS 
: eee See INE TEA. PTE SE) MIS TRALER REEL LO, SED CE INS TR SUR ICR LESTE Tm MSRC$: CHMGSUSTR.BLI/UPDATE=(ENHS$:C 


; eae 101 code + 0 data bytes 
; Run Time 00:10.7 

: pte Pass 09; 1¢-8 

3; Lines/CPU Min: 411 

3 Se ae 

3 Spee | Used: 6 pages 

; Compilation cate te 
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